-- card: 3061 from stack: in
-- bmap block id: 2487
-- flags: 0000
-- background id: 2786
-- name: Main Card


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=456 top=28 right=63 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  push this card
  go to card "help"
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=409 top=29 right=62 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  if field "script-it" is empty then
    go "Home"
    exit mouseup
  else
    answer "Are you sure you want to abandon the script?" with "No" or "Yes"
    if it is "Yes" then
      go "home"
      exit mouseUp
    end if
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=378 top=93 right=115 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  global scriptName
  put "end " & scriptName & return after field "script-it"
  answer "Would you like to save this as a text file?" with "Yes" or "No"
  if it is "Yes" then
    put NewFileName("Save Script as?","") into targetFile
    if targetFile is not empty then
      open file targetFile
      write field "script-it" to file targetFile
    end if
  end if
  answer "Ready for you to cut and paste" with "Oh Boy!"
end mouseUp



-- part 54 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=210 top=288 right=309 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: new script
----- HyperTalk script -----
on mouseUp
  answer "Are you sure you're done with this script?" with "Yes!" or "No"
  if it is "Yes!" then
    put empty into field "script-it"
    openStack
  end if
end mouseUp




-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=30 right=61 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  show card field "info"
  play "hi"
  wait until the mouseClick
  hide card field "info"
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=311 top=275 right=310 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 1006 / 1006
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: file commands
----- HyperTalk script -----
on mouseUp

end mouseup




-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=43 top=115 right=133 bottom=83
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: add
----- HyperTalk script -----
on mouseUp
  ask "Add what?"
  put it into number
  ask "To container:"
  put it into holder
  put "add" && number && "to" && holder & return after field "Script-it"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=34 top=136 right=150 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: answer
----- HyperTalk script -----
on mouseUp
  ask "Type your question:"
  put it into query
  put "answer" && quote & query & quote && "with " into holder
  repeat 3 times
    ask "With?"
    if it is empty then
      delete last word of holder
      exit repeat
    end if
    put quote & it & quote && "or " after holder
  end repeat
  put holder & return after field "Script-it" of card "main card"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=40 top=156 right=170 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ask
----- HyperTalk script -----
on mouseUp
  ask "What question do you want to ask?"
  put it into query
  put "ask" && quote & query & quote & return into holder
  put holder after field "script-it" of card "main card"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=39 top=177 right=191 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: beep
----- HyperTalk script -----
on mouseUp
  ask "How many times should I beep?" with "1"
  put "beep" && it & return after field "script-it" of card "main card"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=21 top=199 right=214 bottom=110
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: choose tool
----- HyperTalk script -----
on mouseUp
  show card field "tools"
  ask "Which tool do you wish to choose?"
  put "choose" && it &&  "tool" & return after field "script-it" of card "main card"
  hide card field "tools"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=37 top=219 right=235 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: click
----- HyperTalk script -----
on mouseUp
  put "click at with key" & return after field "script-it" of card "main card"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=31 top=240 right=254 bottom=100
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: convert
----- HyperTalk script -----
on mouseUp
  ask "Convert to what?"
  put "convert to " & it & return after field "Script-it" of card "main card"
end mouseUp



-- part 16 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=115 top=218 right=313 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tools


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=117 right=132 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: delete
----- HyperTalk script -----
on mouseUp
  ask "What do you want to delete?"
  put "delete" && it & return after field "script-it" of card "Main card"
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=201 top=119 right=131 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: repeat
----- HyperTalk script -----
on mouseUp
  global holder
  put "repeat " into holder
  push this card
  visual effect wipe right
  go to card "loops"
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=299 top=120 right=134 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  ask "What Handler/Command do you want passed on?"
  put "pass" && it & return into holder
  put holder after field "script-it" of card "main card"
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=121 right=134 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: set
----- HyperTalk script -----
on mouseUp
  global holder
  put "set " into holder
  push this card
  visual effect wipe right
  go to card "properties"
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=111 top=137 right=151 bottom=183
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: divide
----- HyperTalk script -----
on mouseUp
  ask "Divide what?"
  put it && "by"into holder
  ask "By what?"
  put it into number
  put "divide" && holder && number & return after field "script-it" of card "main card"
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=126 top=157 right=171 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: do
----- HyperTalk script -----
on mouseUp
  ask "Do What??"
  put "do" && it & return after field "script-it" of card "main card"
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=177 right=191 bottom=183
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: doMenu
----- HyperTalk script -----
on mouseUp
  ask "Do which menu command?"
  put "doMenu " & quote & it & quote & return after field "script-it" of card "main card"
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=123 top=200 right=214 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: end
----- HyperTalk script -----
on mouseUp
  ask "Enter Handler-Name to end:"
  put "end" && it & return after field "script-it" of card "main card"
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=122 top=220 right=233 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exit
----- HyperTalk script -----
on mouseUp
  ask "Enter Handler-Name to exit:"
  put "exit" && it & return after field "script-it" of card "main card"
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=121 top=240 right=255 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: if
----- HyperTalk script -----
on mouseUp
  answer "What kind of 'if' construct?" with "Simple" or "If-Then" or "With Else"
  put it into ifKind
  ask "If What?"
  put it into holdOne
  if ifKind is "Simple" then
    put "if" && holdOne & return after field "script-it" of card "main card"
    exit mouseUp
  end if
  if ifKind is "If-Then" then
    put "if" && holdOne && "then" & return into holdTwo
    repeat until it is empty
      ask "Then What?"
      put it into holdTre
      if holdTre is empty then exit repeat
      put holdTre & return after holdTwo
    end repeat
    put holdTwo & "end if" after field "script-it" of card "main card"
    exit mouseUp
  end if
  put "if" && holdOne && "then" & return into holdFor
  repeat until it is empty
    ask "Then What?"
    put it into holdFiv
    if holdFiv is empty then exit repeat
    put holdFiv & return after holdFor
  end repeat
  ask "Else What?"
  put "else" & return into holdSix
  put it & return after holdSix
  answer "Anything Else?" with "Yup" or "Nope"
  if it is "Nope" then
    put holdSix & "end if" after holdFor
    put holdFor after field "script-it" of card "main card"
  else
    repeat until it is empty
      ask "What Else?"
      put it into holdSev
      if holdSev is empty then exit repeat
      put holdSev & return after holdSix
    end repeat
  end if
  put holdSix after holdFor
  put holdFor & "end if" & return after field "script-it" of card "main card"
end mouseUp





-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=206 top=137 right=150 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: find
----- HyperTalk script -----
on mouseUp
  put "find " into holder
  answer "Find String, Word, or Characters?" with "string" or "word" or "chars"
  if it is "string" then
    ask "Enter string to find:"
    put quote & it & quote & return after holder
    put holder after field "script-it" of card "main card"
  else
    ask "Enter word or chars to find:"
    put quote & it & quote & return after holder
    put holder after field "script-it" of card "main card"
  end if
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=205 top=160 right=174 bottom=256
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: get
----- HyperTalk script -----
on mouseUp
  ask "Get What?"
  put "get" && it & return into holder
  put holder after field "script-it" of card "main card"
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=203 top=180 right=195 bottom=261
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: global
----- HyperTalk script -----
on mouseUp
  ask "Global What?"
  put "global" && it & return into holder
  put holder after field "script-it" of card "main card"
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=209 top=201 right=217 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go
----- HyperTalk script -----
on mouseUp
  ask "Where shall we go?"
  put "go" && it & return into holder
  put holder after field "script-it" of card "main card"
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=203 top=223 right=236 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide
----- HyperTalk script -----
on mouseUp
  global holder
  put "hide " into holder
  visual effect wipe right
  push this card
  go to card "hide items"
end mouseUp




-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=196 top=242 right=258 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: multiply
----- HyperTalk script -----
on mouseUp
  ask "Multiply what?"
  put it && "by" into holder
  ask "By what?"
  put it into number
  put "multiply" && holder && number & return after field "script-it" of card "main card"
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=137 right=152 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: play
----- HyperTalk script -----
on mouseUp
  global holder,speed
  ask "Play What?"
  put "play" && quote & it & quote into holder
  answer "Change Tempo?" with "Sure!" or "Fine as is"
  if it is "sure!" then
    ask "Enter Tempo:" with "100"
    put "tempo" && it into speed
  else
    put holder after field "script-it" of card "main card"
    exit mouseUp
  end if
  answer "Notes?" with "Yes" or "No"
  if it is "Yes" then
    ask"Enter Notes:"
    put it into notes
  end if
  put holder && speed && notes & return after field "script-it" of card "main card"
end mouseUp





-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=284 top=157 right=172 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pop card
----- HyperTalk script -----
on mouseUp
  answer "Pop into container?" with "Yup" or "Heck No"
  if it is "Yup" then
    ask "Container's Name:"
    put "pop card into " & it & return into holder
  else
    put "pop card" & return into holder
  end if
  put  holder after field "script-it" of card "main card"
end mouseUp




-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=281 top=180 right=195 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: push card
----- HyperTalk script -----
on mouseUp
  answer "Which card to push?" with "Recent" or "This One"
  if it is "recent" then put "push recent card" & return into holder else put "push this card" & return into holder
  put  holder after field "script-it" of card "main card"
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=302 top=200 right=217 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: put
----- HyperTalk script -----
on mouseUp
  ask "Put what?"
  put "put" && it into holder
  ask "Into where?"
  put holder && "into" &&it & return after field "script-it" of card "main card"
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=223 right=238 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
  global type
  if type is not "function" then
    beep
    answer "Sorry, but this can only be used in a function."
  else
    put "return " & return after field "script-it" of card "main card"
  end if
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=300 top=243 right=257 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: send
----- HyperTalk script -----
on mouseUp
  ask "Send What?"
  put it && "to" into holder
  ask "To Where?"
  put "send" && holder && it & return after field "script-it" of card "main card"

end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=401 top=158 right=172 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sort
----- HyperTalk script -----
on mouseUp
  answer "Sort in what order?" with "Ascending" or "Descending"
  put "sort" && it & " " into holder
  answer "Usual text sort?" with "Yes" or "No"
  if it is "Yes" then
    put "by " & return after holder
  else
    answer "What type of sort?" with "numeric" or "dateTime" or "international"
    put it && "by" && return after holder
  end if
  put holder after field "script-it" of card "main card"
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=399 top=137 right=153 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: show
----- HyperTalk script -----
on mouseUp
  global holder
  put "show " into holder
  visual effect wipe right
  push this card
  go to card "show Items"
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=386 top=180 right=196 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: subtract
----- HyperTalk script -----
on mouseUp
  ask "Subtract what?"
  put it into number
  ask "From container:"
  put it into holder
  put "subtract" && number && "from" && holder & return after field "Script-it"
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=399 top=201 right=218 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: type
----- HyperTalk script -----
on mouseUp
  ask "Type what?"
  if it is empty then exit mouseUp
  put "type" && quote & it & quote & return after field "script-it" of card"main card"
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=374 top=222 right=240 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: visual effect
----- HyperTalk script -----
on mouseUp
  global holder
  put "visual effect " into holder
  visual effect dissolve
  push this card
  go to card "visuals"
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=400 top=244 right=262 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: wait
----- HyperTalk script -----
on mouseUp
  answer "What kind of wait command?" with "for time" or "until" or "while"
  put it into type
  if type is "until" then
    ask "Wait until what?"
    put it into what
    put "wait" && type && what into holder
    put holder & return after field "script-it" of card "main card"
    exit mouseUp
  end if
  if type is "For time" then
    answer "Wait for which?" with "ticks" or "seconds"
    if it is "ticks" then
      ask "Enter number of ticks to wait:"
      put "wait" && it into holder
      put holder & return after field "script-it" of card "main card"
      exit mouseUp
    else
      ask "Enter number of seconds to wait for:"
      put "wait" && it && "seconds" into holder
      put holder & return after field "script-it" of card "main card"
      exit mouseUp
    end if
  else
    ask "Wait while what?"
    put "wait while " & it into holder
    put holder & return after field "script-it" of card "main card"
  end if
end mouseUp






-- part 47 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=106 top=131 right=249 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 5
-- text size: 14
-- style flags: 1024
-- line height: 18
-- part name: info
----- HyperTalk script -----




-- part 48 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=26 top=300 right=320 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: drag
----- HyperTalk script -----
on mouseUp
  ask "Drag from where?"
  put it into from
  ask "To where?"
  put it into to
  put "drag from " & from && "to " & to & return after field "script-it"
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=114 top=301 right=318 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: reset paint
----- HyperTalk script -----
on mouseUp
  put "reset paint" & return after field "script-it" of card "main card"
end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=369 top=281 right=297 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: open
----- HyperTalk script -----
on mouseUp
  ask "Name of file to be opened?"
  if it is empty then exit mouseUp
  put "open file" && quote & it & quote & return after field "script-it" of card "main card"
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=371 top=298 right=316 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: close
----- HyperTalk script -----
on mouseUp
  ask "Name of file to be closed?"
  if it is empty then exit mouseUp
  put "close file" && quote & it & quote & return after field "script-it" of card "main card"
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=433 top=280 right=297 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: read
----- HyperTalk script -----
on mouseUp
  ask "Name of file to read from:"
  put "read from file" && quote & it & quote into holder
  if it is empty then exit mouseUp
  answer "How should the read end?" with "A Character" or "No. Chars"
  if it is "A Character" then put " until" after holder else put " for " after holder
  put holder & return after field "Script-it"
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=435 top=299 right=316 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: write
----- HyperTalk script -----
on mouseUp
  ask "Enter Field name to write from:"
  if it is empty then exit mouseUp
  put "field" && quote & it & quote into feeld
  ask "Enter name of file to write to:"
  put "to file" && quote & it & quote into fyle
  put "write" && feeld && fyle & return after field "script-it" of card "main card"
end mouseUp



-- part 57 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=378 top=67 right=89 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go My Stack
----- HyperTalk script -----
on mouseUp
  put FileName ("STAK") into newStack
  if newStack is not empty then
    visual effect dissolve
    go newStack
  end if
end mouseUp



-- part contents for card part 16
----- text -----
browse    button    field    select    lasso
pencil       brush     eraser  line       bucket
oval         curve      text      spray[can]
        rect[angle]                    poly[gon]
  round rect[angle]      reg[ular] poly[gon]


-- part contents for card part 47
----- text -----
Auto-Scripter
as adapted by
Gavin Young
from
Dan Shafer's book
"HyperTalk Programming"